From: Juri Linkov <juri@jurta.org>
Date: Sat, 24 Dec 2011 19:16:53 +0000 (+0200)
Subject: * lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~1318
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4b3f431cffcc24f096ec64a521da57183276f25b;p=emacs.git

* lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3d3a634f8f..70efa1b7013 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-24  Juri Linkov  <juri@jurta.org>
+
+	* window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
+	(Bug#10348)
+
 2011-12-23  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/ange-ftp.el (ange-ftp-copy-file-internal): Check for
diff --git a/lisp/window.el b/lisp/window.el
index 16a38ca03c6..0014d85a816 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -3604,7 +3604,7 @@ specific buffers."
                 (with-current-buffer (window-buffer window)
                   (let ((point (window-point-1 window))
                         (start (window-start window))
-                        (mark (mark)))
+                        (mark (mark t)))
                     `((buffer
                        ,(buffer-name buffer)
                        (selected . ,selected)